home *** CD-ROM | disk | FTP | other *** search
/ Professional Soft Collection 1.02 / Professional Soft Collection 1.02.iso / winutils / wingauge.zip / TIMERS.ASM < prev    next >
Assembly Source File  |  1992-06-26  |  776b  |  62 lines
  1.         MODEL    SMALL, C
  2.  
  3.         EXTRN    PASCAL    GETMODULEHANDLE : FAR
  4.         EXTRN    PASCAL    GETHEAPSPACES : FAR
  5.         EXTRN    PASCAL    GETFREESPACE: FAR
  6.  
  7.         CODESEG
  8.  
  9. HeapSize    PROC
  10.         push    ds
  11.         push    ax
  12.         call    GETMODULEHANDLE
  13.         push    ax
  14.         call    GETHEAPSPACES
  15.         mov    bx, dx
  16.         mov    cx, 100
  17.         mul    cx
  18.         div    bx
  19.         ret
  20. HeapSize    ENDP
  21.  
  22.  
  23.         PUBLIC    rmTimer
  24.  
  25. rmTimer        PROC
  26.         mov    ax, offset User
  27.         call    HeapSize
  28.         push    ax
  29.         mov    ax, offset GDI
  30.         call    HeapSize
  31.         pop    bx
  32.         cmp    ax, bx
  33.         jb    X_GT_Y
  34.         mov    ax, bx
  35. X_GT_Y:        ret
  36. rmTimer        ENDP
  37.  
  38.  
  39.         PUBLIC    mmTimer
  40.  
  41. mmTimer        PROC
  42.         xor    ax,ax
  43.         push    ax
  44.         call    GETFREESPACE
  45.         mov    cx, 6
  46. Shift:        sal    ax, 1
  47.         rcl    dx, 1
  48.         loop    Shift
  49.         mov    ax, dx
  50.         ret
  51. mmTimer        ENDP
  52.  
  53.         ENDS
  54.  
  55.  
  56.         DATASEG
  57. User        DB    "USER", 0
  58. GDI        DB    "GDI", 0
  59.         ENDS
  60.  
  61.  
  62.         END